home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 April: Mac OS SDK / Dev.CD Apr 98 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Universal / Interfaces / PInterfaces / TextCommon.p < prev    next >
Encoding:
Text File  |  1998-02-12  |  16.5 KB  |  371 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        TextCommon.p
  3.  
  4.      Contains:    Common text types and constants and prototypes for related functions 
  5.  
  6.      Version:    Technology:    Mac OS 8
  7.                  Release:    Universal Interfaces 3.1
  8.  
  9.      Copyright:    © 1995-1998 by Apple Computer, Inc., all rights reserved.
  10.  
  11.      Bugs?:        Please include the the file and version information (from above) with
  12.                  the problem description.  Developers belonging to one of the Apple
  13.                  developer programs can submit bug reports to:
  14.  
  15.                      devsupport@apple.com
  16.  
  17. }
  18. {$IFC UNDEFINED UsingIncludes}
  19. {$SETC UsingIncludes := 0}
  20. {$ENDC}
  21.  
  22. {$IFC NOT UsingIncludes}
  23.  UNIT TextCommon;
  24.  INTERFACE
  25. {$ENDC}
  26.  
  27. {$IFC UNDEFINED __TEXTCOMMON__}
  28. {$SETC __TEXTCOMMON__ := 1}
  29.  
  30. {$I+}
  31. {$SETC TextCommonIncludes := UsingIncludes}
  32. {$SETC UsingIncludes := 1}
  33.  
  34. {$IFC UNDEFINED __MACTYPES__}
  35. {$I MacTypes.p}
  36. {$ENDC}
  37.  
  38.  
  39. {$PUSH}
  40. {$ALIGN MAC68K}
  41. {$LibExport+}
  42.  
  43. { TextEncodingBase type & values }
  44. { (values 0-32 correspond to the Script Codes defined in Inside Macintosh: Text pages 6-52 and 6-53 }
  45.  
  46. TYPE
  47.     TextEncodingBase                    = UInt32;
  48.  
  49. CONST
  50.                                                                 {  Mac OS encodings }
  51.     kTextEncodingMacRoman        = 0;
  52.     kTextEncodingMacJapanese    = 1;
  53.     kTextEncodingMacChineseTrad    = 2;
  54.     kTextEncodingMacKorean        = 3;
  55.     kTextEncodingMacArabic        = 4;
  56.     kTextEncodingMacHebrew        = 5;
  57.     kTextEncodingMacGreek        = 6;
  58.     kTextEncodingMacCyrillic    = 7;
  59.     kTextEncodingMacDevanagari    = 9;
  60.     kTextEncodingMacGurmukhi    = 10;
  61.     kTextEncodingMacGujarati    = 11;
  62.     kTextEncodingMacOriya        = 12;
  63.     kTextEncodingMacBengali        = 13;
  64.     kTextEncodingMacTamil        = 14;
  65.     kTextEncodingMacTelugu        = 15;
  66.     kTextEncodingMacKannada        = 16;
  67.     kTextEncodingMacMalayalam    = 17;
  68.     kTextEncodingMacSinhalese    = 18;
  69.     kTextEncodingMacBurmese        = 19;
  70.     kTextEncodingMacKhmer        = 20;
  71.     kTextEncodingMacThai        = 21;
  72.     kTextEncodingMacLaotian        = 22;
  73.     kTextEncodingMacGeorgian    = 23;
  74.     kTextEncodingMacArmenian    = 24;
  75.     kTextEncodingMacChineseSimp    = 25;
  76.     kTextEncodingMacTibetan        = 26;
  77.     kTextEncodingMacMongolian    = 27;
  78.     kTextEncodingMacEthiopic    = 28;
  79.     kTextEncodingMacCentralEurRoman = 29;
  80.     kTextEncodingMacVietnamese    = 30;
  81.     kTextEncodingMacExtArabic    = 31;                            {  The following use script code 0, smRoman }
  82.     kTextEncodingMacSymbol        = 33;
  83.     kTextEncodingMacDingbats    = 34;
  84.     kTextEncodingMacTurkish        = 35;
  85.     kTextEncodingMacCroatian    = 36;
  86.     kTextEncodingMacIcelandic    = 37;
  87.     kTextEncodingMacRomanian    = 38;                            {  The following use script code 4, smArabic }
  88.     kTextEncodingMacFarsi        = $8C;                            {  Like MacArabic but uses Farsi digits }
  89.                                                                 {  The following use script code 7, smCyrillic }
  90.     kTextEncodingMacUkrainian    = $98;                            {  The following use script code 32, smUnimplemented }
  91.     kTextEncodingMacVT100        = $FC;                            {  VT100/102 font from Comm Toolbox: Latin-1 repertoire + box drawing etc }
  92.                                                                 {  Special Mac OS encodings }
  93.     kTextEncodingMacHFS            = $FF;                            {  Meta-value, should never appear in a table. }
  94.                                                                 {  Unicode & ISO UCS encodings begin at 0x100 }
  95.     kTextEncodingUnicodeDefault    = $0100;                        {  Meta-value, should never appear in a table. }
  96.     kTextEncodingUnicodeV1_1    = $0101;
  97.     kTextEncodingISO10646_1993    = $0101;                        {  Code points identical to Unicode 1.1 }
  98.     kTextEncodingUnicodeV2_0    = $0103;                        {  New location for Korean Hangul }
  99.                                                                 {  ISO 8-bit and 7-bit encodings begin at 0x200 }
  100.     kTextEncodingISOLatin1        = $0201;                        {  ISO 8859-1 }
  101.     kTextEncodingISOLatin2        = $0202;                        {  ISO 8859-2 }
  102.     kTextEncodingISOLatinCyrillic = $0205;                        {  ISO 8859-5 }
  103.     kTextEncodingISOLatinArabic    = $0206;                        {  ISO 8859-6, = ASMO 708, =DOS CP 708 }
  104.     kTextEncodingISOLatinGreek    = $0207;                        {  ISO 8859-7 }
  105.     kTextEncodingISOLatinHebrew    = $0208;                        {  ISO 8859-8 }
  106.     kTextEncodingISOLatin5        = $0209;                        {  ISO 8859-9 }
  107.                                                                 {  MS-DOS & Windows encodings begin at 0x400 }
  108.     kTextEncodingDOSLatinUS        = $0400;                        {  code page 437 }
  109.     kTextEncodingDOSGreek        = $0405;                        {  code page 737 (formerly code page 437G) }
  110.     kTextEncodingDOSBalticRim    = $0406;                        {  code page 775 }
  111.     kTextEncodingDOSLatin1        = $0410;                        {  code page 850, "Multilingual" }
  112.     kTextEncodingDOSGreek1        = $0411;                        {  code page 851 }
  113.     kTextEncodingDOSLatin2        = $0412;                        {  code page 852, Slavic }
  114.     kTextEncodingDOSCyrillic    = $0413;                        {  code page 855, IBM Cyrillic }
  115.     kTextEncodingDOSTurkish        = $0414;                        {  code page 857, IBM Turkish }
  116.     kTextEncodingDOSPortuguese    = $0415;                        {  code page 860 }
  117.     kTextEncodingDOSIcelandic    = $0416;                        {  code page 861 }
  118.     kTextEncodingDOSHebrew        = $0417;                        {  code page 862 }
  119.     kTextEncodingDOSCanadianFrench = $0418;                        {  code page 863 }
  120.     kTextEncodingDOSArabic        = $0419;                        {  code page 864 }
  121.     kTextEncodingDOSNordic        = $041A;                        {  code page 865 }
  122.     kTextEncodingDOSRussian        = $041B;                        {  code page 866 }
  123.     kTextEncodingDOSGreek2        = $041C;                        {  code page 869, IBM Modern Greek }
  124.     kTextEncodingDOSThai        = $041D;                        {  code page 874, also for Windows }
  125.     kTextEncodingDOSJapanese    = $0420;                        {  code page 932, also for Windows }
  126.     kTextEncodingDOSChineseSimplif = $0421;                        {  code page 936, also for Windows }
  127.     kTextEncodingDOSKorean        = $0422;                        {  code page 949, also for Windows; Unified Hangul Code }
  128.     kTextEncodingDOSChineseTrad    = $0423;                        {  code page 950, also for Windows }
  129.     kTextEncodingWindowsLatin1    = $0500;                        {  code page 1252 }
  130.     kTextEncodingWindowsANSI    = $0500;                        {  code page 1252 (alternate name) }
  131.     kTextEncodingWindowsLatin2    = $0501;                        {  code page 1250, Central Europe }
  132.     kTextEncodingWindowsCyrillic = $0502;                        {  code page 1251, Slavic Cyrillic }
  133.     kTextEncodingWindowsGreek    = $0503;                        {  code page 1253 }
  134.     kTextEncodingWindowsLatin5    = $0504;                        {  code page 1254, Turkish }
  135.     kTextEncodingWindowsHebrew    = $0505;                        {  code page 1255 }
  136.     kTextEncodingWindowsArabic    = $0506;                        {  code page 1256 }
  137.     kTextEncodingWindowsBalticRim = $0507;                        {  code page 1257 }
  138.     kTextEncodingWindowsKoreanJohab = $0510;                    {  code page 1361, for Windows NT }
  139.                                                                 {  Various national standards begin at 0x600 }
  140.     kTextEncodingUS_ASCII        = $0600;
  141.     kTextEncodingJIS_X0201_76    = $0620;
  142.     kTextEncodingJIS_X0208_83    = $0621;
  143.     kTextEncodingJIS_X0208_90    = $0622;
  144.     kTextEncodingJIS_X0212_90    = $0623;
  145.     kTextEncodingJIS_C6226_78    = $0624;
  146.     kTextEncodingGB_2312_80        = $0630;
  147.     kTextEncodingGBK_95            = $0631;                        {  annex to GB 13000-93; for Windows 95 }
  148.     kTextEncodingKSC_5601_87    = $0640;                        {  same as KSC 5601-92 without Johab annex }
  149.     kTextEncodingKSC_5601_92_Johab = $0641;                        {  KSC 5601-92 Johab annex }
  150.     kTextEncodingCNS_11643_92_P1 = $0651;                        {  CNS 11643-1992 plane 1 }
  151.     kTextEncodingCNS_11643_92_P2 = $0652;                        {  CNS 11643-1992 plane 2 }
  152.     kTextEncodingCNS_11643_92_P3 = $0653;                        {  CNS 11643-1992 plane 3 (was plane 14 in 1986 version) }
  153.                                                                 {  ISO 2022 collections begin at 0x800 }
  154.     kTextEncodingISO_2022_JP    = $0820;
  155.     kTextEncodingISO_2022_JP_2    = $0821;
  156.     kTextEncodingISO_2022_CN    = $0830;
  157.     kTextEncodingISO_2022_CN_EXT = $0831;
  158.     kTextEncodingISO_2022_KR    = $0840;                        {  EUC collections begin at 0x900 }
  159.     kTextEncodingEUC_JP            = $0920;                        {  ISO 646, 1-byte katakana, JIS 208, JIS 212 }
  160.     kTextEncodingEUC_CN            = $0930;                        {  ISO 646, GB 2312-80 }
  161.     kTextEncodingEUC_TW            = $0931;                        {  ISO 646, CNS 11643-1992 Planes 1-16 }
  162.     kTextEncodingEUC_KR            = $0940;                        {  ISO 646, KS C 5601-1987 }
  163.                                                                 {  Misc standards begin at 0xA00 }
  164.     kTextEncodingShiftJIS        = $0A01;                        {  plain Shift-JIS }
  165.     kTextEncodingKOI8_R            = $0A02;                        {  Russian internet standard }
  166.     kTextEncodingBig5            = $0A03;                        {  Big-5 (has variants) }
  167.     kTextEncodingMacRomanLatin1    = $0A04;                        {  Mac OS Roman permuted to align with ISO Latin-1 }
  168.     kTextEncodingHZ_GB_2312        = $0A05;                        {  HZ (RFC 1842, for Chinese mail & news) }
  169.                                                                 {  Other platform encodings }
  170.     kTextEncodingNextStepLatin    = $0B01;                        {  NextStep encoding }
  171.                                                                 {  EBCDIC & IBM host encodings begin at 0xC00 }
  172.     kTextEncodingEBCDIC_US        = $0C01;                        {  basic EBCDIC-US }
  173.     kTextEncodingEBCDIC_CP037    = $0C02;                        {  code page 037, extended EBCDIC (Latin-1 set) for US,Canada... }
  174.                                                                 {  Special value }
  175.     kTextEncodingMultiRun        = $0FFF;                        {  Multi-encoding text with external run info }
  176.                                                                 {  The following are older names for backward compatibility }
  177.     kTextEncodingMacTradChinese    = 2;
  178.     kTextEncodingMacRSymbol        = 8;
  179.     kTextEncodingMacSimpChinese    = 25;
  180.     kTextEncodingMacGeez        = 28;
  181.     kTextEncodingMacEastEurRoman = 29;
  182.     kTextEncodingMacUninterp    = 32;
  183.  
  184. { TextEncodingVariant type & values }
  185.  
  186. TYPE
  187.     TextEncodingVariant                    = UInt32;
  188.  
  189. CONST
  190.                                                                 {  Default TextEncodingVariant, for any TextEncodingBase }
  191.     kTextEncodingDefaultVariant    = 0;                            {  Variants of kTextEncodingMacIcelandic                                                     }
  192.     kMacIcelandicStandardVariant = 0;                            {  0xBB & 0xBC are fem./masc. ordinal indicators }
  193.     kMacIcelandicTrueTypeVariant = 1;                            {  0xBB & 0xBC are fi/fl ligatures }
  194.                                                                 {  Variants of kTextEncodingMacJapanese }
  195.     kMacJapaneseStandardVariant    = 0;
  196.     kMacJapaneseStdNoVerticalsVariant = 1;
  197.     kMacJapaneseBasicVariant    = 2;
  198.     kMacJapanesePostScriptScrnVariant = 3;
  199.     kMacJapanesePostScriptPrintVariant = 4;
  200.     kMacJapaneseVertAtKuPlusTenVariant = 5;                        {  Variant options for most Japanese encodings (MacJapanese, ShiftJIS, EUC-JP, ISO 2022-JP)     }
  201.                                                                 {  These can be OR-ed into the variant value in any combination }
  202.     kJapaneseNoOneByteKanaOption = $20;
  203.     kJapaneseUseAsciiBackslashOption = $40;                        {  Variants of kTextEncodingMacArabic }
  204.     kMacArabicStandardVariant    = 0;                            {  0xC0 is 8-spoke asterisk, 0x2A & 0xAA are asterisk (e.g. Cairo) }
  205.     kMacArabicTrueTypeVariant    = 1;                            {  0xC0 is asterisk, 0x2A & 0xAA are multiply signs (e.g. Baghdad) }
  206.     kMacArabicThuluthVariant    = 2;                            {  0xC0 is Arabic five-point star, 0x2A & 0xAA are multiply signs }
  207.     kMacArabicAlBayanVariant    = 3;                            {  8-spoke asterisk, multiply sign, Koranic ligatures & parens }
  208.                                                                 {  Variants of kTextEncodingMacFarsi }
  209.     kMacFarsiStandardVariant    = 0;                            {  0xC0 is 8-spoke asterisk, 0x2A & 0xAA are asterisk (e.g. Tehran) }
  210.     kMacFarsiTrueTypeVariant    = 1;                            {  asterisk, multiply signs, Koranic ligatures, geometric shapes }
  211.                                                                 {  Variants of kTextEncodingMacHebrew }
  212.     kMacHebrewStandardVariant    = 0;
  213.     kMacHebrewFigureSpaceVariant = 1;                            {  Variants of Unicode & ISO 10646 encodings }
  214.     kUnicodeNoSubset            = 0;
  215.     kUnicodeCanonicalDecompVariant = 2;                            {  canonical decomposition; excludes composed characters }
  216.                                                                 {  Variants of Big-5 encoding }
  217.     kBig5_BasicVariant            = 0;
  218.     kBig5_StandardVariant        = 1;                            {  0xC6A1-0xC7FC: kana, Cyrillic, enclosed numerics }
  219.     kBig5_ETenVariant            = 2;                            {  adds kana, Cyrillic, radicals, etc with hi bytes C6-C8,F9 }
  220.                                                                 {  Unicode variants not yet supported (and not fully defined) }
  221.     kUnicodeNoCompatibilityVariant = 1;
  222.     kUnicodeNoComposedVariant    = 3;
  223.     kUnicodeNoCorporateVariant    = 4;                            {  The following are older names for backward compatibility }
  224.     kJapaneseStandardVariant    = 0;
  225.     kJapaneseStdNoVerticalsVariant = 1;
  226.     kJapaneseBasicVariant        = 2;
  227.     kJapanesePostScriptScrnVariant = 3;
  228.     kJapanesePostScriptPrintVariant = 4;
  229.     kJapaneseVertAtKuPlusTenVariant = 5;                        {  kJapaneseStdNoOneByteKanaVariant = 6,    // replaced by kJapaneseNoOneByteKanaOption }
  230.                                                                 {  kJapaneseBasicNoOneByteKanaVariant = 7,    // replaced by kJapaneseNoOneByteKanaOption     }
  231.     kHebrewStandardVariant        = 0;
  232.     kHebrewFigureSpaceVariant    = 1;
  233.     kUnicodeMaxDecomposedVariant = 2;                            {  replaced by kUnicodeCanonicalDecompVariant }
  234.  
  235. { TextEncodingFormat type & values }
  236.  
  237. TYPE
  238.     TextEncodingFormat                    = UInt32;
  239.  
  240. CONST
  241.                                                                 {  Default TextEncodingFormat for any TextEncodingBase }
  242.     kTextEncodingDefaultFormat    = 0;                            {  Formats for Unicode & ISO 10646 }
  243.     kUnicode16BitFormat            = 0;
  244.     kUnicodeUTF7Format            = 1;
  245.     kUnicodeUTF8Format            = 2;
  246.     kUnicode32BitFormat            = 3;
  247.  
  248. { TextEncoding type }
  249.  
  250. TYPE
  251.     TextEncoding                        = UInt32;
  252. {  name part selector for GetTextEncodingName }
  253.     TextEncodingNameSelector            = UInt32;
  254.  
  255. CONST
  256.     kTextEncodingFullName        = 0;
  257.     kTextEncodingBaseName        = 1;
  258.     kTextEncodingVariantName    = 2;
  259.     kTextEncodingFormatName        = 3;
  260.  
  261. { Types used in conversion }
  262.  
  263. TYPE
  264.     TextEncodingRunPtr = ^TextEncodingRun;
  265.     TextEncodingRun = RECORD
  266.         offset:                    ByteOffset;
  267.         textEncoding:            TextEncoding;
  268.     END;
  269.  
  270.     ConstTextEncodingRunPtr                = ^TextEncodingRun;
  271.     ScriptCodeRunPtr = ^ScriptCodeRun;
  272.     ScriptCodeRun = RECORD
  273.         offset:                    ByteOffset;
  274.         script:                    ScriptCode;
  275.     END;
  276.  
  277.     ConstScriptCodeRunPtr                = ^ScriptCodeRun;
  278.     TextPtr                                = ^UInt8;
  279.     ConstTextPtr                        = ^UInt8;
  280. { Basic types for Unicode characters and strings: }
  281.     UniCharArrayPtr                        = ^UniChar;
  282.     ConstUniCharArrayPtr                = ^UniChar;
  283. {  enums for TextEncoding Conversion routines }
  284.  
  285. CONST
  286.     kTextScriptDontCare            = -128;
  287.     kTextLanguageDontCare        = -128;
  288.     kTextRegionDontCare            = -128;
  289.  
  290. {  struct for TECGetInfo }
  291.  
  292.  
  293. TYPE
  294.     TECInfoPtr = ^TECInfo;
  295.     TECInfo = RECORD
  296.         format:                    UInt16;                                    {  format code for this struct }
  297.         tecVersion:                UInt16;                                    {  TEC version in BCD, e.g. 0x0121 for 1.2.1 }
  298.         tecTextConverterFeatures: UInt32;                                {  bitmask indicating TEC features/fixes }
  299.         tecUnicodeConverterFeatures: UInt32;                            {  bitmask indicating UnicodeConverter features/fixes }
  300.         tecTextCommonFeatures:    UInt32;                                    {  bitmask indicating TextCommon features/fixes }
  301.         tecTextEncodingsFolderName: Str31;                                {  localized name of Text Encodings folder (pascal string) }
  302.         tecExtensionFileName:    Str31;                                    {  localized name of TEC extension (pascal string) }
  303.     END;
  304.  
  305.     TECInfoHandle                        = ^TECInfoPtr;
  306. {  Value for TECInfo format code }
  307.  
  308. CONST
  309.     kTECInfoCurrentFormat        = 1;                            {  any future formats will just add fields at the end }
  310.  
  311. {
  312.    Defined feature/fix bits for tecUnicodeConverterFeatures field
  313.    Bit:                                Meaning if set:
  314.    ----                                ---------------
  315.    kTECKeepInfoFixBit                Unicode Converter no longer ignores other control flags if
  316.                                       kUnicodeKeepInfoBit is set. Bug fix in TEC Manager 1.2.1.
  317.    kTECFallbackTextLengthFixBit        Unicode Converter honors the *srcConvLen and *destConvLen
  318.                                       returned by caller-supplied fallback handler for any status it
  319.                                       returns except for kTECUnmappableElementErr (previously it only
  320.                                       honored these values if noErr was returned). Bug fix in TEC
  321.                                       Manager 1.2.1.
  322.    kTECTextRunBitClearFixBit        ConvertFromUnicodeToTextRun & ConvertFromUnicodeToScriptCodeRun
  323.                                       function correctly if the kUnicodeTextRunBit is set (previously
  324.                                       their determination of best target encoding was incorrect). Bug
  325.                                       fix in TEC Manager 1.3.
  326.    kTECTextToUnicodeScanFixBit        ConvertFromTextToUnicode uses an improved scanner and maintains
  327.                                       some resulting state information, which it uses for mapping.
  328.                                       This has several effects:
  329.                                       - Improved mapping of 0x30-0x39 digits in Mac OS Arabic, fewer
  330.                                         direction overrides when mapping Mac OS Arabic & Hebrew, and
  331.                                         improved mapping of certain characters in Indic encodings.
  332.                                       - Malformed input produces kTextMalformedInputErr.
  333.                                       - ConvertFromTextToUnicode accepts and uses the control flags
  334.                                         kUnicodeKeepInfoMask and kUnicodeStringUnterminatedMask.
  335.                                       Bug fix and enhancement in TEC Manager 1.3.
  336. }
  337.  
  338.     kTECKeepInfoFixBit            = 0;
  339.     kTECFallbackTextLengthFixBit = 1;
  340.     kTECTextRunBitClearFixBit    = 2;
  341.     kTECTextToUnicodeScanFixBit    = 3;
  342.  
  343.     kTECKeepInfoFixMask            = $00000001;
  344.     kTECFallbackTextLengthFixMask = $00000002;
  345.     kTECTextRunBitClearFixMask    = $00000004;
  346.     kTECTextToUnicodeScanFixMask = $00000008;
  347.  
  348. {  Prototypes for TextEncoding functions }
  349.  
  350. FUNCTION CreateTextEncoding(encodingBase: TextEncodingBase; encodingVariant: TextEncodingVariant; encodingFormat: TextEncodingFormat): TextEncoding;
  351. FUNCTION GetTextEncodingBase(encoding: TextEncoding): TextEncodingBase;
  352. FUNCTION GetTextEncodingVariant(encoding: TextEncoding): TextEncodingVariant;
  353. FUNCTION GetTextEncodingFormat(encoding: TextEncoding): TextEncodingFormat;
  354. FUNCTION ResolveDefaultTextEncoding(encoding: TextEncoding): TextEncoding;
  355. FUNCTION GetTextEncodingName(iEncoding: TextEncoding; iNamePartSelector: TextEncodingNameSelector; iPreferredRegion: RegionCode; iPreferredEncoding: TextEncoding; iOutputBufLen: ByteCount; VAR oNameLength: ByteCount; VAR oActualRegion: RegionCode; VAR oActualEncoding: TextEncoding; oEncodingName: TextPtr): OSStatus; C;
  356. FUNCTION TECGetInfo(VAR tecInfo: TECInfoHandle): OSStatus;
  357.  
  358. FUNCTION UpgradeScriptInfoToTextEncoding(iTextScriptID: ScriptCode; iTextLanguageID: LangCode; iRegionID: RegionCode; iTextFontname: Str255; VAR oEncoding: TextEncoding): OSStatus;
  359. FUNCTION RevertTextEncodingToScriptInfo(iEncoding: TextEncoding; VAR oTextScriptID: ScriptCode; VAR oTextLanguageID: LangCode; VAR oTextFontname: Str255): OSStatus;
  360.  
  361. {$ALIGN RESET}
  362. {$POP}
  363.  
  364. {$SETC UsingIncludes := TextCommonIncludes}
  365.  
  366. {$ENDC} {__TEXTCOMMON__}
  367.  
  368. {$IFC NOT UsingIncludes}
  369.  END.
  370. {$ENDC}
  371.